home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Misc / emu / p-interp.lha / p-interp-0.5 / create.rexx < prev    next >
OS/2 REXX Batch file  |  2004-07-28  |  243b  |  9 lines
  1. /* Create a block volume in a file */
  2. /* © by Stefan Haubenthal 2002 */
  3. parse arg name count
  4. if ~open(img,name,W) | datatype(count)~=NUM then
  5.     exit 0*writeln(stdout,"Usage: create name count")
  6. do count
  7.     call writech(img,copies("00"x,512))
  8. end
  9.